inherited frmEmitentes: TfrmEmitentes
  Left = 650
  Top = 385
  Width = 967
  Height = 615
  Caption = 'Cadastro de Emitentes'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 536
    Width = 951
  end
  inherited tbrBotoes: TsToolBar
    Width = 951
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 951
    Height = 471
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 951
        Height = 471
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel1: TsLabel
          Left = 24
          Top = 32
          Width = 95
          Height = 13
          Caption = 'C'#243'digo do Emitente:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel2: TsLabel
          Left = 24
          Top = 90
          Width = 66
          Height = 13
          Caption = 'Raz'#227'o Social:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel3: TsLabel
          Left = 24
          Top = 60
          Width = 74
          Height = 13
          Caption = 'Nome Fantasia:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel4: TsLabel
          Left = 24
          Top = 121
          Width = 30
          Height = 13
          Caption = 'CNPJ:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel5: TsLabel
          Left = 296
          Top = 121
          Width = 23
          Height = 13
          Caption = 'CPF:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel6: TsLabel
          Left = 440
          Top = 121
          Width = 13
          Height = 13
          Caption = 'IE:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel10: TsLabel
          Left = 24
          Top = 151
          Width = 49
          Height = 13
          Caption = 'Endere'#231'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel11: TsLabel
          Left = 24
          Top = 183
          Width = 67
          Height = 13
          Caption = 'Complemento:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel12: TsLabel
          Left = 712
          Top = 183
          Width = 30
          Height = 13
          Caption = 'Bairro:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel13: TsLabel
          Left = 24
          Top = 213
          Width = 36
          Height = 13
          Caption = 'Cidade:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel14: TsLabel
          Left = 712
          Top = 213
          Width = 24
          Height = 13
          Caption = 'CEP:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel15: TsLabel
          Left = 840
          Top = 213
          Width = 17
          Height = 13
          Caption = 'UF:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel22: TsLabel
          Left = 1
          Top = 365
          Width = 949
          Height = 13
          Align = alBottom
          Caption = 'Observa'#231#245'es:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel7: TsLabel
          Left = 24
          Top = 242
          Width = 87
          Height = 13
          Caption = 'C'#243'digo da Cidade:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel20: TsLabel
          Left = 712
          Top = 242
          Width = 37
          Height = 13
          Caption = 'Regi'#227'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object cedCodEmitente: TsCurrencyEdit
          Tag = 2000
          Left = 128
          Top = 28
          Width = 80
          Height = 21
          Hint = 'Digite o C'#243'digo do Emitente'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
        object sGroupBox1: TsGroupBox
          Left = 344
          Top = 1
          Width = 569
          Height = 53
          Caption = 'Tipo do Emitente'
          TabOrder = 1
          SkinData.SkinSection = 'GROUPBOX'
          object sLabel9: TsLabel
            Left = 16
            Top = 24
            Width = 77
            Height = 13
            Caption = 'Tipo de Pessoa:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object chkCliente: TsCheckBox
            Left = 300
            Top = 21
            Width = 60
            Height = 19
            Hint = 'Tipo de Emitente Cliente'
            Caption = 'Cliente'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            SkinData.SkinSection = 'CHECKBOX'
            ImgChecked = 0
            ImgUnchecked = 0
          end
          object chkFornecedor: TsCheckBox
            Left = 381
            Top = 21
            Width = 82
            Height = 19
            Hint = 'Tipo de Emitente Fornecedor'
            Caption = 'Fornecedor'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            SkinData.SkinSection = 'CHECKBOX'
            ImgChecked = 0
            ImgUnchecked = 0
          end
          object chkVendedor: TsCheckBox
            Left = 480
            Top = 21
            Width = 74
            Height = 19
            Hint = 'Tipo de Emitente Vendedor'
            Caption = 'Vendedor'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            SkinData.SkinSection = 'CHECKBOX'
            ImgChecked = 0
            ImgUnchecked = 0
          end
          object cboTipoPessoa: TsComboBox
            Tag = 1000
            Left = 96
            Top = 20
            Width = 193
            Height = 21
            Hint = 'Selecione o Tipo de Emitente'
            Alignment = taLeftJustify
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'COMBOBOX'
            Style = csDropDownList
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ItemHeight = 13
            ItemIndex = -1
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            OnCloseUp = cboTipoPessoaCloseUp
            Items.Strings = (
              'F'#205'SICA'
              'JUR'#205'DICA')
          end
        end
        object edtRazaoSocial: TsEdit
          Tag = 1000
          Left = 128
          Top = 86
          Width = 785
          Height = 21
          Hint = 'Digite a Raz'#227'o Social'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 300
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtFantasia: TsEdit
          Tag = 1000
          Left = 128
          Top = 56
          Width = 785
          Height = 21
          Hint = 'Digite o Nome Fantasia'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 300
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object mskCNPJ: TsMaskEdit
          Left = 128
          Top = 117
          Width = 129
          Height = 21
          Hint = 'Digite o CNPJ'
          Color = clWhite
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object mskCPF: TsMaskEdit
          Left = 328
          Top = 117
          Width = 105
          Height = 21
          Hint = 'Digite o CPF'
          Color = clWhite
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object edtIE: TsEdit
          Left = 456
          Top = 117
          Width = 153
          Height = 21
          Hint = 'Digite a Inscri'#231#227'o Estadual'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 30
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtLogradouro: TsEdit
          Left = 128
          Top = 148
          Width = 785
          Height = 21
          Hint = 'Digite o Endere'#231'o'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 300
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtComplemento: TsEdit
          Left = 128
          Top = 179
          Width = 577
          Height = 21
          Hint = 'Digite o Complemento'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 300
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtBairro: TsEdit
          Left = 752
          Top = 179
          Width = 161
          Height = 21
          Hint = 'Digite o Bairro'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 100
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 10
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object mskCep: TsMaskEdit
          Left = 752
          Top = 209
          Width = 84
          Height = 21
          Hint = 'Digite o CEP'
          Color = clWhite
          EditMask = '00.000-000;0;_'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 12
          OnExit = mskCepExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object edtUF: TsEdit
          Left = 864
          Top = 209
          Width = 49
          Height = 21
          Hint = 'Digite a UF'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 13
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object sGroupBox2: TsGroupBox
          Left = 24
          Top = 259
          Width = 889
          Height = 105
          Caption = 'Contato:'
          TabOrder = 14
          SkinData.SkinSection = 'GROUPBOX'
          object sLabel16: TsLabel
            Left = 25
            Top = 28
            Width = 22
            Height = 13
            Caption = 'Fixo:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel17: TsLabel
            Left = 25
            Top = 52
            Width = 35
            Height = 13
            Caption = 'Celular:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel18: TsLabel
            Left = 25
            Top = 76
            Width = 29
            Height = 13
            Caption = 'Outro:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel19: TsLabel
            Left = 157
            Top = 52
            Width = 37
            Height = 13
            Caption = 'Email 1:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel21: TsLabel
            Left = 157
            Top = 28
            Width = 40
            Height = 13
            Caption = 'Contato:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel8: TsLabel
            Left = 681
            Top = 76
            Width = 117
            Height = 13
            Caption = 'Prazo Pagamento (Dias):'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object mskTel1: TsMaskEdit
            Left = 64
            Top = 24
            Width = 82
            Height = 21
            Hint = 'Digite o Telefone Fixo'
            Color = clWhite
            EditMask = '(00) 0000-0000;0;_'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 14
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
          end
          object mskTel2: TsMaskEdit
            Left = 64
            Top = 48
            Width = 82
            Height = 21
            Hint = 'Digite o Telefone Celular'
            Color = clWhite
            EditMask = '(00) 0000-0000;0;_'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 14
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
          end
          object mskTel3: TsMaskEdit
            Left = 64
            Top = 72
            Width = 82
            Height = 21
            Hint = 'Digite o Telefone Outro'
            Color = clWhite
            EditMask = '(00) 0000-0000;0;_'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 14
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
          end
          object edtEmail1: TsEdit
            Left = 205
            Top = 48
            Width = 676
            Height = 21
            Hint = 'Digite o Email'
            CharCase = ecLowerCase
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 100
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            SkinData.SkinSection = 'EDIT'
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
          end
          object edtContato: TsEdit
            Left = 205
            Top = 24
            Width = 676
            Height = 21
            Hint = 'Digite o Contato'
            CharCase = ecUpperCase
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 100
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            SkinData.SkinSection = 'EDIT'
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
          end
          object cedQtdDiasPgto: TsCurrencyEdit
            Left = 800
            Top = 72
            Width = 80
            Height = 21
            Hint = 'Digite o Prazo Pagamento'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
          end
        end
        object btnConsultarCNPJ: TsBitBtn
          Left = 256
          Top = 116
          Width = 33
          Height = 25
          Hint = 'Consultar CNPJ Receita Federal'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          OnClick = btnConsultarCNPJClick
          Glyph.Data = {
            F6060000424DF606000000000000360000002800000018000000180000000100
            180000000000C0060000120B0000120B00000000000000000000FF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFCAC9CAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFACADADA3A3A37B7B7BFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FF62342D6E413A774E477269587A7465837869866B5FFF00FFFF
            00FFFF00FFFF00FFFF00FF959696B4B5B56E6F6FFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FF521F13552F235C372D634036625546587E6365826C7592
            7B879E8B99998E916E68FF00FFFF00FF848686BABABA6A6B6BFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FF48150447160549190A512313582D1F494932
            3D5F444A705255795A64846B74967E89958690897F7D6F6DB6B6B66A6A6AFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF571D045015014E13004E130050
            160345250C22552D2857333260383E6841476D4A54785A6A78647B756EA4A5A5
            6D6D6DFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF672304641F01621C
            00641D00631D00581F012A3A0930673D506B556D6B6C7470726B6C6A606E6255
            735A908F8C767676868280FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6E2406
            782D037627003F470D1056110C630F136B1C546B524751454366406790647DA1
            7B66876B5F73627575747E7D7E7672706D55506A4039FF00FFFF00FFFF00FFFF
            00FFFF00FF88390486340063490713731A116707136F05546D4E405B397BA66F
            80AB757EA9767DA4767A9D756B886B667F69747974595C524F352E5C413BFF00
            FFFF00FFFF00FFFF00FF802F069946039A44002B7D1C167D0B157D0635792844
            564281AB6480AB697FAB6D7EA56B7DA46D7DA56F799C6F76977268866C828080
            4D322C492D2650241FFF00FFFF00FFFF00FF914006A75201AC580142831B168A
            0C168703546B4D507A3786AC5683AD5F82AD6380A76480A7677FA66A7A9F6C83
            956D6C8B647E7E7259464135160F441E16FF00FFFF00FFFF00FF9D4D07B56302
            BC6E05639120259A161F96055D5C5D82A94F86A94F86B26283B16683AD647FA7
            6381A66586A36C7A9A657A96636F80656C68652806012E1C0DFF00FFFF00FFFF
            00FFA5580AC17708C9840FC0911944B44134AC2654674781994189A9538BB86C
            83BB7589B26580A05D79AD687DA4667E90577A8E59697656737072240A011C2D
            0FFF00FFFF00FFFF00FFAC640FCC8A13D4981FDDA42DC4B24154C95F5453537E
            8E4491AC60C2B165D1A658B6A65CB59C5593A35E8195507E8C5079955B6F7B5D
            70736D0A2D0819230BFF00FFFF00FFFF00FFB06A16D59921E1AA35E7BA4CEDC6
            60ADCF7766736B7E7848A79F53A0B25DAFB166A5AD6591AC6A91AA6582995381
            99516F874A6B785E4759440427041C280BFF00FFFF00FFFF00FFAA641CDEA630
            E7B84BEFCB69F4D883D0E3A08AAB90666E606C763E8EB46C8CC07987BB7395B4
            6C97A55D82A15A7E96555B74447E7E7A194015052C0523290DFF00FFFF00FFFF
            00FFFF00FFE3AF3DEDC25BF4D47FFAE2A0FCEBB4EBEDB779837A6F7B66656D3C
            7790468FAA5A90AF6689A45F65864F566A3F818A7D52694E0640050B3E0DFF00
            FFFF00FFFF00FFFF00FFFF00FFBF8236EFC664F7D88BFBE6ADFEEFC0DDEDC0B1
            E0B778847974806F677E4B4E6427485C284C622F647F5982877E56725313530F
            094C0D1F3711FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0C9E04E3D481FCE5
            AAFEEEBCE9EAB7C5E0ADB4DD9559A582738075827E808A8688807D7F687D6A3D
            763B176213105411174B1CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FF35AF29D1D881E9E19AC7DC83DDD481B6D4834AC96028C96F3FBC7745B0
            683BA45E28934E1A782516691E186029FF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FF1B9A0B12B7113DC03390BF44EEC2639DC265
            3FCA7535C06540BD7242B57940A5723D955D327F4FFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF25761319A51E34
            BD4C50AB279FA530AA9A29CE8F268A953329AB603E955844683EFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FF386A213E7B324689463E80383A7025426E2D486745FF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
          SkinData.SkinSection = 'BUTTON'
        end
        object memObs: TsMemo
          Left = 1
          Top = 378
          Width = 949
          Height = 92
          Hint = 'Digite as Observa'#231#245'es'
          Align = alBottom
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 300
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 15
          CharCase = ecUpperCase
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object edtCidade: TsEdit
          Left = 128
          Top = 209
          Width = 577
          Height = 21
          Hint = 'Digite a Cidade'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 300
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 11
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object chkAtivo: TsCheckBox
          Left = 216
          Top = 29
          Width = 87
          Height = 19
          Caption = 'Ativo (S/N)?'
          Checked = True
          State = cbChecked
          TabOrder = 16
          SkinData.SkinSection = 'CHECKBOX'
          ImgChecked = 0
          ImgUnchecked = 0
        end
        object cedCodCidade: TsCurrencyEdit
          Tag = 1000
          Left = 128
          Top = 238
          Width = 80
          Height = 21
          Hint = 'Digite o C'#243'digo da Cidade'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 17
          OnExit = cedCodCidadeExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
        object dblCidade: TsDBLookupComboBox
          Left = 212
          Top = 238
          Width = 493
          Height = 21
          Hint = 'Selecione a Cidade'
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'CODIGO_CIDADE'
          ListField = 'NOME_CIDADE; CODIGO_UF'
          ListSource = dtsCidade
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 18
          OnCloseUp = dblCidadeCloseUp
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
        end
        object edtRegiao: TsEdit
          Left = 752
          Top = 238
          Width = 161
          Height = 21
          Hint = 'Digite o Bairro'
          CharCase = ecUpperCase
          Color = clWhite
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 100
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 19
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object dbgConsulta: TRxDBGrid
        Left = 0
        Top = 0
        Width = 951
        Height = 471
        Align = alClient
        DataSource = dtsConsulta
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = dbgConsultaDblClick
        OnTitleClick = dbgConsultaTitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'NOME_FANTASIA'
            Title.Caption = 'Nome Fantasia'
            Width = 250
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RAZAO_SOCIAL'
            Title.Caption = 'Raz'#227'o Social'
            Width = 250
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CNPJ'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CPF'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NOME_CIDADE'
            Title.Caption = 'Cidade'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TIPO_PESSOA'
            Title.Caption = 'Tipo Pessoa'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ESTADO'
            Title.Caption = 'Estado'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TELEFONE_FIXO'
            Title.Caption = 'Telefone Fixo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TELEFONE_CELULAR'
            Title.Caption = 'Telefone Celular'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TELEFONE_OUTRO'
            Title.Caption = 'Telefone Outro'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EMAIL'
            Title.Caption = 'Email'
            Visible = True
          end>
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgContaPagar'
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgContaReceber'
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgServicos'
      object pnlServicoes: TsPanel
        Left = 0
        Top = 0
        Width = 951
        Height = 471
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 224
    Top = 576
  end
  object qryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'ATIVO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'RAZAO_SOCIAL'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'NOME_FANTASIA'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CNPJ'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'CPF'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'INSCRICAO_ESTADUAL'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end
      item
        Name = 'LOGRADOURO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CIDADE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'ESTADO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end
      item
        Name = 'TELEFONE_FIXO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'TELEFONE_CELULAR'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'TELEFONE_OUTRO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'EMAIL'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'CLIENTE_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'FORNECEDOR_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'VENDEDOR_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'NOME_CONTATO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'OBSERVACAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CEP'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end
      item
        Name = 'QTD_DIAS_PAGAMENTO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_AUXILIAR'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'LOGIN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'BAIRRO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'COMPLEMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'TIPO_PESSOA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_CIDADE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO EMITENTE'
      '('
      '    ATIVO_SN,'
      '    RAZAO_SOCIAL,'
      '    NOME_FANTASIA,'
      '    CNPJ,'
      '    CPF,'
      '    INSCRICAO_ESTADUAL,'
      '    LOGRADOURO,'
      '    CIDADE,'
      '    ESTADO,'
      '    TELEFONE_FIXO,'
      '    TELEFONE_CELULAR,'
      '    TELEFONE_OUTRO,'
      '    EMAIL,'
      '    CLIENTE_SN,'
      '    FORNECEDOR_SN,'
      '    VENDEDOR_SN,'
      '    NOME_CONTATO,'
      '    OBSERVACAO,'
      '    CEP,'
      '    DATA_CADASTRO,'
      '    QTD_DIAS_PAGAMENTO,'
      '    CODIGO_AUXILIAR,'
      '    LOGIN,'
      '    BAIRRO,'
      '    COMPLEMENTO,'
      '    TIPO_PESSOA,'
      '    CODIGO_CIDADE'
      ''
      ')'
      'VALUES'
      '('
      '    :ATIVO_SN,'
      '    :RAZAO_SOCIAL,'
      '    :NOME_FANTASIA,'
      '    :CNPJ,'
      '    :CPF,'
      '    :INSCRICAO_ESTADUAL,'
      '    :LOGRADOURO,'
      '    :CIDADE,'
      '    :ESTADO,'
      '    :TELEFONE_FIXO,'
      '    :TELEFONE_CELULAR,'
      '    :TELEFONE_OUTRO,'
      '    :EMAIL,'
      '    :CLIENTE_SN,'
      '    :FORNECEDOR_SN,'
      '    :VENDEDOR_SN,'
      '    :NOME_CONTATO,'
      '    :OBSERVACAO,'
      '    :CEP,'
      '    getdate(),'
      '    :QTD_DIAS_PAGAMENTO,'
      '    :CODIGO_AUXILIAR,'
      '    :LOGIN,'
      '    :BAIRRO,'
      '    :COMPLEMENTO,'
      '    :TIPO_PESSOA,'
      '    :CODIGO_CIDADE'
      ''
      ')'
      ' '
      ' ')
    Left = 632
    Top = 9
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT EMI.*, CID.NOME_CIDADE FROM EMITENTE EMI, CIDADE CID'
      'WHERE 1 = 1 AND EMI.CODIGO_CIDADE *= CID.CODIGO_CIDADE'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      'ORDER BY EMI.NOME_FANTASIA'
      '')
    Left = 96
    Top = 481
    object qryConsultaATIVO_SN: TStringField
      FieldName = 'ATIVO_SN'
      Size = 1
    end
    object qryConsultaCODIGO_EMITENTE: TAutoIncField
      FieldName = 'CODIGO_EMITENTE'
      ReadOnly = True
    end
    object qryConsultaRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
    object qryConsultaNOME_FANTASIA: TStringField
      FieldName = 'NOME_FANTASIA'
      Size = 300
    end
    object qryConsultaCNPJ: TStringField
      FieldName = 'CNPJ'
      EditMask = '00.000.000/0000-00;0;_'
    end
    object qryConsultaCPF: TStringField
      FieldName = 'CPF'
      EditMask = '000.000.000-00;0;_'
    end
    object qryConsultaINSCRICAO_ESTADUAL: TStringField
      FieldName = 'INSCRICAO_ESTADUAL'
      Size = 30
    end
    object qryConsultaLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 300
    end
    object qryConsultaCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 300
    end
    object qryConsultaESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 2
    end
    object qryConsultaTELEFONE_FIXO: TStringField
      FieldName = 'TELEFONE_FIXO'
    end
    object qryConsultaTELEFONE_CELULAR: TStringField
      FieldName = 'TELEFONE_CELULAR'
    end
    object qryConsultaTELEFONE_OUTRO: TStringField
      FieldName = 'TELEFONE_OUTRO'
    end
    object qryConsultaEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object qryConsultaCLIENTE_SN: TStringField
      FieldName = 'CLIENTE_SN'
      Size = 1
    end
    object qryConsultaFORNECEDOR_SN: TStringField
      FieldName = 'FORNECEDOR_SN'
      Size = 1
    end
    object qryConsultaVENDEDOR_SN: TStringField
      FieldName = 'VENDEDOR_SN'
      Size = 1
    end
    object qryConsultaNOME_CONTATO: TStringField
      FieldName = 'NOME_CONTATO'
      Size = 100
    end
    object qryConsultaOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      Size = 300
    end
    object qryConsultaCEP: TStringField
      FieldName = 'CEP'
      Size = 8
    end
    object qryConsultaDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object qryConsultaQTD_DIAS_PAGAMENTO: TIntegerField
      FieldName = 'QTD_DIAS_PAGAMENTO'
    end
    object qryConsultaCODIGO_AUXILIAR: TIntegerField
      FieldName = 'CODIGO_AUXILIAR'
    end
    object qryConsultaLOGIN: TStringField
      FieldName = 'LOGIN'
      Size = 50
    end
    object qryConsultaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 100
    end
    object qryConsultaCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 300
    end
    object qryConsultaTIPO_PESSOA: TStringField
      FieldName = 'TIPO_PESSOA'
      Size = 50
    end
    object qryConsultaCODIGO_REGIAO: TIntegerField
      FieldName = 'CODIGO_REGIAO'
    end
    object qryConsultaCODIGO_CIDADE: TIntegerField
      FieldName = 'CODIGO_CIDADE'
    end
    object qryConsultaNOME_CIDADE: TStringField
      FieldName = 'NOME_CIDADE'
      Size = 300
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 176
    Top = 481
  end
  object qryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'ATIVO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'RAZAO_SOCIAL'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'NOME_FANTASIA'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CNPJ'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'CPF'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'INSCRICAO_ESTADUAL'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end
      item
        Name = 'LOGRADOURO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CIDADE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'ESTADO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end
      item
        Name = 'TELEFONE_FIXO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'TELEFONE_CELULAR'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'TELEFONE_OUTRO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'EMAIL'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'CLIENTE_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'FORNECEDOR_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'VENDEDOR_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'NOME_CONTATO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'OBSERVACAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'CEP'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end
      item
        Name = 'DATA_CADASTRO'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'QTD_DIAS_PAGAMENTO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_AUXILIAR'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'LOGIN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'BAIRRO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'COMPLEMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'TIPO_PESSOA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_CIDADE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE EMITENTE'
      'SET ATIVO_SN             = :ATIVO_SN,'
      '    RAZAO_SOCIAL         = :RAZAO_SOCIAL,'
      '    NOME_FANTASIA        = :NOME_FANTASIA,'
      '    CNPJ                 = :CNPJ,'
      '    CPF                  = :CPF,'
      '    INSCRICAO_ESTADUAL   = :INSCRICAO_ESTADUAL,'
      '    LOGRADOURO           = :LOGRADOURO,'
      '    CIDADE               = :CIDADE,'
      '    ESTADO               = :ESTADO,'
      '    TELEFONE_FIXO        = :TELEFONE_FIXO,'
      '    TELEFONE_CELULAR     = :TELEFONE_CELULAR,'
      '    TELEFONE_OUTRO       = :TELEFONE_OUTRO,'
      '    EMAIL                = :EMAIL,'
      '    CLIENTE_SN           = :CLIENTE_SN,'
      '    FORNECEDOR_SN        = :FORNECEDOR_SN,'
      '    VENDEDOR_SN          = :VENDEDOR_SN,'
      '    NOME_CONTATO         = :NOME_CONTATO,'
      '    OBSERVACAO           = :OBSERVACAO,'
      '    CEP                  = :CEP,'
      '    DATA_CADASTRO        = :DATA_CADASTRO,'
      '    QTD_DIAS_PAGAMENTO   = :QTD_DIAS_PAGAMENTO,'
      '    CODIGO_AUXILIAR      = :CODIGO_AUXILIAR,'
      '    LOGIN                = :LOGIN,'
      '    BAIRRO               = :BAIRRO,'
      '    COMPLEMENTO          = :COMPLEMENTO,'
      '    TIPO_PESSOA          = :TIPO_PESSOA,'
      '    CODIGO_CIDADE        = :CODIGO_CIDADE'
      'WHERE CODIGO_EMITENTE = :CODIGO_EMITENTE'
      ' ')
    Left = 680
    Top = 9
  end
  object qryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    OnDeleteError = qryExcluirDeleteError
    Parameters = <
      item
        Name = 'CODIGO_EMITENTE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM EMITENTE WHERE CODIGO_EMITENTE = :CODIGO_EMITENTE')
    Left = 736
    Top = 8
  end
  object qryCidade: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT CODIGO_CIDADE,'
      '       NOME_CIDADE,'
      '       CODIGO_UF'
      'FROM CIDADE'
      ''
      'ORDER BY NOME_CIDADE')
    Left = 520
    Top = 313
    object qryCidadeCODIGO_CIDADE: TAutoIncField
      FieldName = 'CODIGO_CIDADE'
      ReadOnly = True
    end
    object qryCidadeNOME_CIDADE: TStringField
      FieldName = 'NOME_CIDADE'
      Size = 60
    end
    object qryCidadeCODIGO_UF: TStringField
      FieldName = 'CODIGO_UF'
      Size = 2
    end
  end
  object dtsCidade: TDataSource
    DataSet = qryCidade
    Left = 608
    Top = 313
  end
  object qryRegioesCidade: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_CIDADE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT RE.NOME_REGIAO'
      'FROM REGIOES_CIDADES RC,'
      '     REGIAO RE'
      'WHERE RE.CODIGO_REGIAO = RC.CODIGO_REGIAO'
      '      AND RC.CODIGO_CIDADE = :CODIGO_CIDADE')
    Left = 592
    Top = 400
    object qryRegioesCidadeNOME_REGIAO: TStringField
      FieldName = 'NOME_REGIAO'
      Size = 50
    end
  end
end
